Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d6/tallyho.arc/PVANNTY.FCP

Text File | 1990-09-23 | 502b | 43 lines

@DSPLY "This program calculates"
@DSPLY "the present value of a"
@DSPLY "series of equal paymnts"
@DSPLY "made in the future."
@GET "Value of each payment"
@RIN (1)
@GET "Number of payments"
@RIN (2)
@GET "Annual interest rate "
@RIN (3)
@ROUT (3)
/100
=
@NEW STEP
@RIN (3)
+1
=
@NEW STEP
@X**
@ROUT (2)
=
@NEW STEP
@1/X
=
@NEW STEP
@RIN (9)
1-
@ROUT (9)
=
@NEW STEP
/
@ROUT (3)
=
@NEW STEP
*
@ROUT (1)
=
@NEW STEP
@DSPLY "Present Value is"
=
@NEW STEP
@STOP